home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / SavePalette.AmiCAD < prev    next >
Text File  |  1998-04-25  |  912b  |  35 lines
  1. /* Sauvegarde de la palette courante dans un fichier */
  2. /* Le fichier sauvé peut être relu par le menu Préférences/Configuration/Charger */
  3. /* $VER: 1.00, © R.Florac (Chez Corbin, 23 Avril 1998) */
  4.  
  5. options results     /* indispensable pour récupérer le résultat des macros */
  6.  
  7. signal on error     /* pour l'interception des erreurs */
  8. signal on syntax
  9.  
  10. 'REQFILE("Nom du fichier destination?", "")'; fichier=result
  11. if fichier ~="" then do
  12.     if open(file, fichier, 'W') then do
  13.     call writeln(file, "AmiCADPrefs 1.1")
  14.     call writeln(file, "[Palette]")
  15.     do color=0 to 15
  16.         c="Color"||color||"="
  17.         'GETCOLOR('color')'; c=c||result
  18.         call writeln(file,c)
  19.     end
  20.     close(file)
  21.     end
  22. end
  23.  
  24. exit
  25.  
  26. /* Traitement des erreurs, interruption du programme */
  27. syntax:
  28. erreur=RC
  29. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  30. exit
  31.  
  32. error:
  33. 'MESSAGE("Erreur en ligne 'SIGL'")'
  34. exit
  35.